-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x1000 (none)
-- protect password hash: 4079561844
-- maximum user level: 3 (painting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 7
-- first background id: 2669
-- card count: 94
-- first card id: 3747
-- list block id: 11579
-- print block id: 25505
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 306272 bytes
-- stack block size: 5632 bytes
-- created by hypercard version: 0x00000000
-- compacted by hypercard version: 0x01258000
-- modified by hypercard version: 0x01258000
-- opened by hypercard version: 0x01258000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x0000220000002200
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on openstack
  global savelevel
  put the userlevel into savelevel
  set the userlevel to 2
  hide msg
  global blind
  put the blindtyping into blind
  set the blindtyping to false
  hide menubar
  global position
  put "cell1" into position
  global notthatway
  put "That is not an exit." into notthatway
  global donteat
  put "That would not do wonders for your digestion." into donteat
  global doorhide
  put "closed" into doorhide
  global cardhide
  put "yes" into cardhide
end openstack

on idunno
  put "Sorry - I don't understand." into field "info"
end idunno

on oneword
  answer "Please use one word commands only."
end oneword

on ouch
  play boing
  put "Ouch!  You seem to have dented yourself."  into field "info"
end ouch

on closestack
  global times
  put 0 into times
  global filter
  put "" into filter
  global halldoor
  put "" into halldoor
  global keyhide
  put "" into keyhide
  global inventory
  put "" into inventory
  global trayhide
  put "" into trayhide
  global doorhide
  put "closed" into doorhide
  global alarm
  put "" into alarm
  global grate
  put "" into grate
  global gtimes
  put "" into gtimes
  global cardhide
  put "yes" into cardhide
  global suithide
  put "" into suithide
  global gunhide
  put "" into gunhide
  global droolhide
  put "" into droolhide
  global room
  put "" into room
  global wear
  put "" into wear
  global boozhide
  put "" into boozhide
  global cuphide
  put "" into cuphide
  global posthide
  put "" into posthide
  global action
  put "" into action
  global gdoors
  put "" into gdoors
  global booz
  put "" into booz
  global boozer
  put "" into boozer
  global coffee
  put "" into coffee
  global roomz
  put "" into roomz
  global deadsec
  put "" into deadsec
  get the freesize of this stack
  if it>1024*10 then
    set the lockscreen to true
    set the userlevel to 3
    domenu "compact stack"
    set the userlevel to 2
    set the lockscreen to false
  end if
  show menubar
  global blind
  set the blindtyping to blind
  global savelevel
  set the userlevel to savelevel
end closestack

on reset
  send "closestack" to this stack
end reset

on idle
  get the commandkey
  if it is down then
    beep
    wait 1 seconds
    exit idle
  end if
end idle

on arrowkey
  beep
end arrowkey

on choose
  beep
  answer "Sorry...you can't." with "OK"
end choose

on enterkey
end enterkey

on returnkey
end returnkey

on domenu menuse
  if menuse is "back" or menuse is "first" or menuse is "last" or menuse is "next" or menuse is "prev" or menuse is "recent" or menuse is "find..." or menuse is "print stack..." or menuse is "print report..." or menuse is "new card" or menuse is "cut card" or menuse is "paste card" or menuse is "undo" or menuse is "message"then
  beep
  exit domenu
else pass domenu
end domenu